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Rotterdam, 
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Veranderingen, veranderingen. 

Tja, dat houdt de 'zjeu' er in (of is het de 
jeux?) 

Van twee naar drie.... 
kolommen, in de hoop dat het beter 
leesbaar is en er beter uit ziet. Gevolg: 
kleinere letters en evenveel leesvoer als 
een "oud" nummer met twee kolommen 
van zo'n 20 pagina’s of meer. 

Hopelijk naar ieders zin. 

Superbasic programma’s zullen we 
voortaan anders behandelen; ook hier 
veranderingen. Ruud Reddingius is 
'redaktie SB' geworden. Zie verder de 
mededeling op pagina 549. 

Er zijn weer cartridges te koop, zie ook 
elders in deze Quasar, en ze zijn voor de 
verandering eens splintemieuw en gaan 
veigezeld van labels. 

Ode al voor de verandering hebben we 
deze keer een aantal artikelen uit een 
Belgish blad geplaatst; Fred van der Neut 
heeft de moeite gen omen ze in te tikken 
nadat hij aan de 'uitgevers' van dat blad 
toe stemming had gevraagd voor plaatsing 
in Quasar. 

Voor de inzenders van kopij: we plaatsen 
het echt! 


Veranderingen zijn ook echt nodig op de 
bijeenkomsten. Verschillende mensen 
hebben op de bijeenkomst en schiiftelijk 
ook die gedachten geopperd en ik moet 
zeggen: "Daar ben ik het al een hele tijd 
mee eens". Het is namelijk niet de eerste 
keer dat dit soort dingen gezegd wordt 
Mijn vraag is dan ook: 

WIE, het liefst won end in Utrecht of 
omstreken, wil voor de bijeenkomsten 
enkele borden maken en tijdens 
bijeenkomsten ook aanwezig zijn om de 
leden 'de weg' te wijzen? GRAAG 
reakties. 

Nogmaals: ik ben er ook voor, maar de 
tijd. 

Binnenkort, zo kan en mag ik mededelen, 
zal de sin_QL_air databank, draaiend op 
een QL met Astracom modem, in werking 
worden gesteld.Vanaf 29 juni, de door de 
PTT opgegeven datum voor het aansluiten 
van het nieuwe nummer, kunt u proberen 
in te loggen via telefoonnummer 03404 - 
22533! 

Helaas heb ik geen reakties ontvangen 

betreffende Abacus en Eesel-gebruik.ik 

blijf wachten. 

Bob komt echt met een vervolg op zijn 
artikel over databases...... 

. • ’ 

Op het laatste moment heb ik het schema 
voor het modem interface toch nog 
leesbaar gemaakt voor iedereen.... 

Miracle heeft na meer dan een maand nog 
steeds niet gereageeid op mijn verzoek 
een offerte te doen. Mischien gaan we 
Tan data benaderen.... 


In ieder geval voelen we het als een 
plicht te proberen voor een zo laag 
mogleijke prijs zoveel mogelijk leden 
aan een modem te helpen. 

Ik zal we! weer commentaar krijgen op 
het feit dat ik weer een kleiner lettertype 
nodig had om op dit stukje het weinige 
dat ik te zeggen dacht te hebben kwijt te 
kunnen. 

Russisch printen gaat m.L alleen als de 
printer mogelijkheden heeft om het 
gewenste font te 'downloaden'. En al mag 
ik het misschien niet zeggen: "Een Star 
geminilOX heeft die mogelijkheid en is 
(zie angeboden) nog voor weinig te koop 
ook. 

De volgende bijeenkomst, gestruktureerd 
of niet (een kwestie van wat inzet van 
weer eens wat andere leden), zal in de 
volgende Quasar gemeld worden en zal 
waarschijnlijk in September plaatsvinden 

Wd, alle inzenders van geplaatste en nog 
te plaatsen kopij hartelijk bedankt en 
voor degenen die binnenkort al op 
vakantie gaan alvast een prettige 
vakantie. 
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Allereerst een QL, maar wat dan? 


Enkele overpeinzingen van 
onze 'vliegende 
ambassadeur' Hans 
Meijeraan. 

Wij, QL-ers, behoeven niet meer 
uitgelegd te krijgen waarom deze 
machine zoveel voor heeft op 
andere... wij hebben echtertoch 
wensen op het gebied van 
uitbouwen van onze persoonlijke (of 
zakelijke!) computer: geheugen? 
disks? ROMs? printer(s)? 

Elke keuze van welke computer dan 
ook, dient te zijn gebaseerd op WAT 
ermee moet worden gedaan, NIET 
de louter technische details geven 
de doorslag bij het bepalen van de 
keuze. Voor alleen maar spelletjes 
blijft een Spectrum met een nog 
immer groeiend aanbod van soft¬ 
ware de computer, maar wil men 
tekstverwerking gaan doen dan is 
aanschaf van microdrive/ disk/ 
printer interface en Tassword II 
verspilling: het werkt allemaal vast 
wel, doch de prijs en de ongemak- 
ken rechtvaardigen deze oplossing 
niet, het is dan beter een nieuwe 
computer te kopen ('n QL met Quill - 
en meer- bijvoorbeeld). 

Printer. 

Aangezien we allemaal wel een TV 
hebben, is de eerste uitbreiding 
(eigenlijk noodzaak van het begin af 
aan) een output medium, zwart-op- 
wit of kleur! Is onze belangrijkste 
toepassing tekstverwerking, met de 
wens tot schrijfmachine kwaliteit, 
dan moet het een margriet 
(daisy)wiel) printer zijn. De Juki 
2200 is hier een aantrekkelijke 
schrijfmachine (jawel ook als 
zodanig inzetbaar, en dus handig 
voor het typen van de enveloppen 
en zo) met ingebouwde RS232- 
interface -dus direkt aansluiten in 
serl. (een EPROM in de Juki geeft 
een aantal van de geaccentueerde 
letters, overige worden met 
Translate vastgelegd). 

Schrijf je veel programma's -ook in 
machinetaal- (voor de club-bibli- 
otheek) en is grafische output 
noodzaak of wens, dan moet ge- 
zocht worden naar een (ook de 
portemonnee) passende matrix- 
printer. NLQ (near letter quality, een 



benadering van de schrijfmachine 
kwaliteit) of niet, lettertypen-opties, 
mogelijkheid tot goed leesbare 
kopien (hoeveel?) en breedte van 
papier geven de eerste selektie- 
kriteria. De "officiele" QL-printer -'n 
iets aangepaste Seikosha 100- en 
Citizen 120D zijn goede 80-koloms 
printers, compatibel (=gelijkwaar- 
dig) m&t doch goedkoper dan 
Epson. Bedenk dat de meeste 
printers standaard een Centronics 
(=paralle!) kabel verlangen, dus 
moet je een interface aanschaffen - 
in een aantal geheugen uitbreidings- 
kaarten ingebouwd- of meer betalen 
voor dezelfde printer met een 
RS232 (=serieel) input. 

Kleur wordt wel iets goedkoper, 
doch is nog steeds prijzig. Mooi is 
het wel als je je Easel-plaatjes op 
papier kunt zettenl Denk je over de 
aanschaf van een papier-output 
apparaat, probeer dan kontakt te 
zoeken met medeleden (de bijeen- 
komsten lenen zich daar uitstekend 
toe) om over keuze te praten en te 
vergelijken. 

Geheugenuitbreidlng. 

Was 16K nog maar kortgeleden een 
enorm geheugen voor diegenen die 
overstapten van de IK ZX80 naar 
de Spectrum (en wat hebben ze 
daarin voor moois weten te 
stoppen), onze 128K QL wil best 
wel groter groeien. Grotere, 
complexere programma's worden 
mogelijk, voorbij de def_tmp Quill 
files, een 50K spreadsheet-toe¬ 
passing, welk een luxe. 

RAM-disk, d.w.z. files in het ge¬ 
heugen in plaats van op microdrive- 
cartridges (wel saven natuurlijk) en 
multi-tasking mogelijkheden (snel 
wisselen van Quill naar Abacus of 
tweemaal Quill enz.) vergroten het 
gemak van de gebruiker enorm. De 
'Spanjers' leveren een goedkope, 
interne vervanging van de be- 
staande chips waardoor je een 
512K machine krijgt. Interne 
vevanging is langzamer dan 
externe uitbreiding maar wie merkt 
dat. (langzamer is de vraag en 
merken doe je het zeker, maar dan 

in de portemonnee ®) 

CST, Miracle en Sandy zijn de 
leveranciers van geheugenuit- 
breidingen op de (Engelse) markt. 

512K zonder franje maar met een 


kopie van de uitbreidingsconnector - 
om andere periferie aan te sluiten- 
kost niet meer dan £100. (CST is 
duurder). Ik heb al jaren een 512K 
thru-connector kaart van Sandy en 
dat bevalt prima, vooral ook omdat 
de kaart niet buiten de QL uitsteekt 
en deze derhalve precies in m'n 
koffer blijft passen, en aangezien ik 
altijd op reis ben ... 

Denk je (toch) aan disk, of heb je al 
een Centronics printer, dan bieden 
CST en Sandy kaarten met inter¬ 
face^) en RAM-disk software en 
Toolkit II (CST zegt zelf veel van de 
Toolkit commands; Sandy heeft een 
complete plus QfLash -niet waar 
Joos?). Sandy's kaarten, de Super- 
Qboards, zijn verkrijgbaar met OK, 
256K of 512K met latere uitbouw 
mogelijkheid. De 512K komt op 
£215, CST's QDisc4 met RAMPIus 
zit daar niet ver naast. Ook hier 
zeer content met Sandy's uit¬ 
breiding, die van CST ken ik helaas 
niet. 

Het is zonder meer voordeliger alles 
in een aan te schaffen, de verschil- 
lende onderdelen (RAM, interface, 
Toolkit en zo doen tezamen een 
grotere aanslag op je financiele 
middelen). 

Disks. 

Kijk eens goed rond op een 
bijeenkomst. Je vindt welhaast alle 
enkele/dubbele disk eenheden die 
er zijn, daaronder nog veel vijf-en- 
een-kwart'ers. Cumana, NEC 
(Sandy) in 3,5 dubbele uitvoering 
komen op even £200. Een interface 
kost gauw £80, maar je hebt er al 
een in je geheugen-uitbreidings- 
kaart nietwaar? (of van de 
'Spanjers " ®) Let vooral op al dan 
niet aparte, wel of niet ingebouwde, 
voedingseenheid, afmetingen, ge- 
wicht. 

Door de nieuwe IBM PC2 wordt de 
3,5 inch diskette nog populairder, 
prijzen zullen zeker zakken, de 
5,25 kosten echter al bijna niets en 
dat kan je keuze beinvloeden. 
Software wordt evenwel op 3,5 inch 
diskettes geleverd, hoewel daar - 
nog- niet veel van is. Lees vooral 
het art ike I over QfLash. 


anaWeyefaan> 
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Foutje in Giga Basic. 


Gert ontdekte een misser in 
GigaBasic.... 

Gebruikers van GigaBasic opgelet. 
Toen ik onlangs bezig was met een 
vrij groot programma dat gebruik 
maakt van de GigaBasic-routines 
werkte het commando 'MENU' 
opeens niet meer. 

Ik had zojuist een routine in 
SuperBasic toegevoegd en toen ik 
controleerde of de originele versie 
nog wel steeds werkte ging er een 
lampje op. Dit riekte naar de zo 
langzamerhand wel beruchte 68000- 
fout: adresseren met een 'word' 


Adapt GigaBasic 


120 dev$ = 'flplj 

130 base = RESPR(22000) 

140 LBYTES dev$ & 

’blink_bin’,base 
150 REPeat loop 

160 IF EOF THEN EXIT loop 

170 READ offset 

180 READ new_value 

190 POKE_W base+offset, 

new_value 

200 END REPeat loop 
210 SBYTES dev$ & 

, blink_bin_new’, 

base,22000 

220 : 

230 REMark Let goed op bij het 
intypen van deze waarden! 

240: 

250 REMark Correctie van fout in 
MENU :cmpa.w a3, a5 -> 
cmpa.1 a3,a5 


'<M Veltilik; 

BENCHTEST 


terwijl er een ’long’ gebruikt moet 
worden. 

Na enig speurwerk met behulp van 
MONQL kon ik deze fout inderdaad 
localiseren. Nu ik toch bezig was 
heb ik ook even gekeken naar twee 
dingen die me stoorden in het 
opstarten van de ’blink_bin’ file. 

Ten eerste het feit dat er altijd een 
karakter ingetikt moet worden om 
het titelblad te doen verdwijnen en 
ten tweede dat het programma een 
’gratis’ monitorscherm opzet. 

Met het bijgaande SuperBasic- 
programma kan de ’blink_bin’-file 
naar keuze worden aangepast. 


252: 

260 DATA 1666,-17461 

270: 

272: 

280 REMark Begin zonder het 

programma een ’koekje te 
voeren’: trap #3 -> nop 

282: 

290 DATA 10542,20081 

300: 

302 REMark 

310 REMark Begin met window 
in tv-mode : moveq #0,d2 
> moveq #l,d2 

312 REMark moveq #0,d7 -> 
rts 

314: 

320 DATA 9202,29697 

322 DATA 9274,20085 

330: 


Programma dat de werksnelheid 
van BASIC en machinetaal 
programma’s versnelt voor QL met 
geheugen uitbreiding. 

Onderstaand een klein machinetaal 
programma dat de processor een 
aantal wachtlussen laat doorlopen. 
De resultaten: zonder geheugen 
uitbreiding 32 seconden, met 
geheugen uitbreiding 18 seconden. 
Dat is dus bijna een op twee, een 
merkbare versnelling! 

AUTEUR: Karel Walraven, 

BRON: KILOBYTJE. 

FvdNeut. 


100 REMark benchtest 

uitsluitend machinetaal 

110 adres=RESPR(100) 

120 RESTORE 
130 FOR x=0 TO 15 
140 READ a: POKE adres+x,a 
150 ENDFOR x 
160 SDATE 1987,1,0,0,0,0 
170 CALL adres: REMark 
wachdoop 
180 PRINT DATES 
190 STOP 

200 DATA "114", "100", ”112", 
"225”, ”87”, "200", "255", 
"254", "87”, "201", "255", 
"248”, "112”, ”0", "78", 

” 117 " 


GELEZEN. 


TWEE PRINTER 
UTILITIES 

Twee besprekingen van een stel 
programma’s die het mogelijk 
maken mooie karaktersets zelf te 
definieren en at te drukken. 

TASPRINT 

Tasprint is een van de programma’s 
in het gamma van Tasman 
Software.die in vroeger dagen de 
fameuze tekstverwerker, Tasman II 
voor de Spectrum op de markt 
bracht. Bij het booten van Tasprint 
merk je al dadelijk dat het moeilijk is 
het programma zo maar dadelijk te 
gaan gebruiken. Via een vragenlijst 
moet een specifieke printer 
ingesteld worden. Dat is al een hele 
klus met vragen als ’Codes for bit 
image printing?’ Met de 
gebruiksaanwijzing van de printer 
erbij en install_bas van Quill 
indachtig, lukt het wel. 

Tasprint beschikt over een 
(primitive) editor waarin naar 
believe uit vijf verschillende fonts 
(karaktersets) kan worden 
gekozen. Het gebruik van Quill als 
editor zou wel makkelijker zijn. Het 
eigenlijke afdrukken van 
dokumenten is het enige wat 
makkelijk gaat. 

INKWELL 

Waar Tasprint geen font-editor 
heeft legt Inkwell daar juist de 
nadruk op. Het is erg gemakkelijk 
met Inkwell zelf fonts of icons te 
gaan definieren. Dat kan 
interessant zijn om vreemde 
karaktersets te gaan gebruiken ( 
Russisch bv.). Bij meer alledaags 
gebruik, zoals bv. kleine titels, 
menu's of reklameboodschappen is 
Inkwell echter ook prima te 
gebruiken. Geen problemen met in- 
stellen van de printer en met een 
toetsdruk kan tussen acht 
verschillende fonts gekozen 
worden. Als editor wordt de ouwe 
trouwe QUILL gebruikt. Het zal wel 
duidelijk zijn dat Inkwell soepeler 
bruikbaar is dan Tasprint. 


BRON:KILOBYTJE 

FvdNeut 
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gelezen 


TASPRINT 

Tasprint is een programma waarmee 
een vijftal lettertypen kan worden 
gemaakt. Bovendien kunnen deze 
letters op verschillende wijzen 
worden weergegeven. Het is de 
bedoeling, dat normale QUILL 
tekstfiles voordat ze worden geprint 
door TASPRINT worden bewerkt. Er 
kunnen op deze wijze leuke tekst- 
koppen worden aangebracht. De 
QUILL file blijft verder ongewijzigd; 
dat houdt dus in dat alle lettertypes 
die in de printerdriver van QUILL 
zijn gedefinieerd niet in het minst 
worden beTnvIoed. 

Tasprint maakt aanzienlijk grotere 
en afwijkende karakters dan nor- 
maal. Dat kan alleen in kombinatie 
met een matrixprinter, die door 
TASPRINT tijdelijk in de grafische 
mode wordt geschakeld. Er zijn 
echter enkele beperkingen. In de 
meeste gevallen (dit hangt van de 
printer at) kan er maar een 
TASPRINT lettertype per regel 
worden toegepast. Tasprint gaat er 
van uit, dat de tekst in de file 
korrekt is, en het is dan ook een 
moeizame zaak teksten met 
Tasprint te wijzigen. In feite is er 
alleen een overwrite mode, waar¬ 
mee kleinere veranderingen moge- 
lijk zijn. De filosofie hierachter 


Ik ben bezig met een leden 
programma in Archive te schrijven. 
Het schrijven van dit programma, 
doe ik uit noodzaak, omdat ik de 
ledenprogramma's in de cartridge 
service niet zo best vond. Ik ben al 
vrij ver gevorderd, zodat ik al kan 
zeggen, wat de specificaties zijn, 
om dit programma te draaien: 
Minstens 256K RAM en liefst met 
diskdrive(s). Een printer is vrijwel 
noodzakelijk om verschillende 
lijsten en adres-etiketten te kunnen 
printen. Het formaat van de lijsten 
kan vanuit het programma ingesteld 


is, dat QUILL alle edit 
mogelijkheden heeft, en dat het 
zelfs ongewenst is de file te 
veranderen in dit stadium. 

Om Tasprint te kunnen gebruiken 
moet er eerst een speciale 
printerdriver worden geTnstalleerd 
die ervoor zorgt dat de printer in zijn 
grafische mode wordt gezet. 

Tasprint bevat een aantal kant-en- 
klare printerdrivers, en de 
beschrijving is nogal optimistisch 
over het installeren van drivers voor 
printers die niet in de lijst 
voorkomen. Een groot deel van de 
handleiding is hier aan gewijd. 
Voorzichtigheid is hier geboden, 
want meestal zal het wel niet lukken 
zelf de driver samen te stellen. Hebt 
u een printer die EPSON kompatibel 
is of een die in de lijst voorkomt, 
dan is er in ieder geval geen vuiltje 
aan de lucht, in alle andere gevallen 
is enige reserve geboden. 

Het programma is (grotendeels) in 
Basic geschreven en is daarom 
behoorlijk langzaam. Tijdens het 
opstarten is het aan te bevelen 
maar even een kopje thee te gaan 
halen. Is de tekst eenmaal geladen, 
dan werkt het programma snel 
genoeg. Het printen van de files 
neemt weer meer tijd in beslag. 
Eerst moeten diverse programma's 
(automatisch) worden geladen, dan 


worden. Ook kunnen er 
printercode's meegegeven worden 
om met een ander lettersoort te 
printen. Hetzelfde geld voor de 
etiketten: Alle mogelijke etiketten 
kunnen geprint worden. Bovendien 
kunnen er meerdere etiketten op 
een rij geprint worden. 

Dit is slechts een kleine opsomming 
van wat dit programma kan; wie 
belangstelling heeft voor dit 
ledenprogramma kan kontakt met 
mij opnemen. 


kan er worden gedrukt. Ook dit 
printen neemt meer tijd in beslag 
dan normaal, want voor een 
grafische regel moeten heel wat 
meer bytes worden overgezonden 
dan voor een regel in de gewone 
tekstmode. 

Tasprint is een paar jaar geleden 
geschreven toen het kennelijk nog 
niet zo duidelijk was welke extra 
bevelen er in TOOLKIT zouden 
komen. Dat heeft tot gevolg dat er 
variabelen in TASPRINT voorkomen 
die in TOOLKIT zijn gedefinieerd 
(o.a. FNAME$). De computer geeft 
hierdoor onvermijdelijk een 
foutmelding. De oplossing is of de 
TOOLKIT niet te gebruiken, of de 
variabelen aan te passen, wat op 
zich niet moeilijk is. 

Al met al een bruikbaar programma 
voor degene die er een toepassing 
voor heeft, teksten worden er veel 
leesbaarder en fraaier door. 
Printerdrivers die bij Tasprint 
worden geleverd: 

EPSON FX-80; RX-80; MX-80 
SEIKOSHA 100; 250 
SHINWACR80 
STAR 

MANNESMAN TALLY MT80 
BROTHER HR5 
BRON.'KILOBYTJE 

(FvdNeut) 


Het is mij gebleken, (gelukkig heb ik 
er niet zoveel ervaring in...) dat het 
vastgelopen bandje van een 
microdrive-cartridge gemakkelijk 
los kan worden gemaakt, door de 
cartridge weer terug te stoppen in 
het hulsje. Door nu het hulsje met 
de ene hand vast te houden en de 
geribbelde voorkant van de 
cartridge met de andere hand, kan 
door wringen het bandje weer 
loskomen. 




Peter; Vierhoef. 
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et blijkt dat er 
(nog) veel men- 
sen zijn, die 
problemen heb- 
ben met para¬ 
meters. Dit komt 
tot uiting in 
de (vele) Superbasic programmes, 
die ik heb bekeken. Verwonderlijk is 
dit in feite niet: De meeste onder 
ons hebben leren programmeren op 
een machine waarmee (alweer in 
basic) alleen met subroutines 
gewerkt kon worden. Nu kan 
Superbasic dat ook, maar het mag 
bekend zijn, dat een subroutine 
maar een van de 3 mogelijkheden 
is, om een basicroutine op de QL 
te gebruiken. De andere 2 waar ik 
het dus verder over wil hebben, zijn 
de procedure en de functie. 

De procedure 

wordt gekenmerkt door het feit dat 
de aanroepnaam van de procedure 
aan het begin van een statement 
(=opdracht) staat. Voorbeelden 
hiervan zijn: 

PRINT, INPUT, WINDOW enz. 

De functie 

wordt gekenmerkt door het feit, dat 
na aanroep van een bepaalde 
naam, een resultaat wordt 
teruggeven. (Let op: een constante 
wordt in SB ook een functie 
genoemd, omdat een constante op 
dezelfde manier werkt!) 
Voorbeelden van functies zijn: 

PI, SIN, INKEY$ enz. 

PARAMETER-LIJSTEN 

Procedures en functies kunnen met 
parameterlijsten werken. Bekijk 
maar eens het volgende statement: 

PRINT SIN(PI/2),a 

Hierin zijn 'SIN(PI/2)' en 'a' 
parameters van 'PRINT'; daarnaast 
is 'PI/2' een parameter van 'SIN'. 
Merk hierbij op dat 'a' zowel een 
functie, een variabele, als wel een 
heel array(!) kan zijn... 

We kunnen het ook anders zeggen: 
De parameterlijst van 'PRINT' 
bestaat uit 2 parameters: 
•SIN(PI/2)'en 'a'. 

De parameterlijst van'SIN' bestaat 
uit 1 parameter: 


'PI/2'. 

Nog een voorbeeld. 

We nemen nog een voorbeeld, om 
het gebruik van 'DEFine 
PROCedure' en 'DEFine FuNction' 
te demonstreren: 

10 a$= M groter":b$="kleiner" 

20 x=4:y=5 

30 swap a$,b$:swap x,y 
40 PRINTaS^aS.-bS^bS 
50 PRIN7\"x=";x,’’y='';y 

De procedure 'swap' is niet 
standaard aanwezig in SB. Toch 
kunnen we hem gemakkelijk zelf 
maken, zonder dat we een greintje 
verstand hebben van machine-taal! 
Dat kunnen we als voIgt doen: 

100 DEFine PROCedure swap(a,b) 
110 LOCal c$ 

120 c$=a:a=b:b=c$ 

130 END DEFine swap 

Merk op dat de regelnummering in 
deze programma-onderdelen niet 
belangrijk is, behalve dat deze 
oplopend is. 

De working van "swap". 

Nude 'working' van de procedure 
'swap': 

De procedure werkt net als in de 
aanroep hiervan met een 
parameterlijst. We maken tussen de 
parameters in de verschillende 
lijsten een onderscheid: 

'a$', ’b$' ,’x' en 'y' zijn aktuele 
parameters; 

'a' en 'b' zijn formele parameters. 

De (formele) parameters van de 
proc. 'swap' kunnen van het type 
'integer', floiting-point' of 'string' 
zijn, afhankelijk van het type van de 
aktuele parameters. Wanneer de 
formele parameters van het floiting- 
point* type zijn, kunnen er af- 
rondingsfouten ontstaan. 

In het algemeen geldt, dat de 
waardes en types(l) van de 
parameters in volgorde aan elkaar 
worden doorgegeven, respectie- 
velijk teruggeven. Het terug geven 
van waardes en types kan alleen 
maar als de aktuele parameters 
variabel zijn. Dat betekent dat ze 
geen waardeparameters (=expres- 
sie) kunnen zijn, want dan is het 


niet mogelijk, dat een aktuele 
parameter een andere waarde krijgt 
bij terugkeer van een procedure. 
Merk op, dat dit 
ook geldt bij functies, hoewel dan 
de verandering van aktuele 
parameters onbedoeld is. Bekijk 
maar eens het volgend programma(- 
onderdeel): 

100DIMarray(10) 

110 FOR n=0 to 10:array(n)= rnd(1 
to 1000) 

120 sort array:p=100 

130 pos=bin_search(array,(p)) 

140 print pos:REM 'pos' geeft de 
positie van 'p' aan in 'array' 

Hierin is 'array' een aktuele 
variabele parameter en 'p' een 
aktuele waarde-parameter. Merk op 
dat SB niet toestaat een array als 
aktuele waarde-parameter (anders 
dan in de taal Pascal!) te gebruiken. 

SUB-ARRAY'S ALS 
PARAMETERS 

Het is mogelijk om een sub-array te 
gebruiken als parameter. Bekijk het 
volgende voorbeeld maar eens: 

100 DIM vb(100) 

105 RANDOMISE 
110 FOR n=0 TO DIMN(vb): vb(n) 
=rnd(1 TO 1000) 

120 sort vb(20 to50) 

130 pos=bin_search(vb(20 to 
50),40) 

Na het uitvoeren van dit programma 
(waarbij 'sort' een procedure is die 
een array sorteert op volgorde) 
zullen alleen de elementen van 20 
t/m 50 van array 'vb' op volgorde 
staan. De volgorde van de rest van 
de elementen van het array is 
willekeurig. 

We noemen ’vb(20 to 50)' een sub¬ 
array van Vb'. 

De mogelijkheid om sub-array’s te 
gebruiken als parameters maakt SB 
zeer krachtig. Bekijk de declaratie 
van 'sort' en ’bin_search' maar 
eens: 

1000 DEFine PROCedure 
sort(array) 

1010 LOCal p,q,m,hoofdlus,lus 
1020 REMark PRINT,array!\ 
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1030 p=0:q=DIMN(array) 

1040 m=array((p+q)DIV 2) 

1050 REPeat hoofdlus 

1060 REPeat lus 

1070 IF array(p)>=m:EXIT lus 

1080 p=p+1 

1090 ENDREPeatlus 

1100 REPeat lus 

1110 IF array(q)<=m :EXIT lus 

1120 q=q-1 

1130 ENDREPeatlus 

1140 IF p<=q THEN 

1150 swap array(p),array(q) 

1160 p=p+1:q=q-1 

1170 END IF 
1180 IF p>q:EXIT hoofdlus 
1190 END REPeat hoofdlus 
1200 IF q>0:sort array(0 TO q) 

1210 IF p<DIMN(array):sort 
array(pTO) 

1220 END DEFine sort 
1240 DEFine FuNction 

bin_search(a,p) 

1250 LOCal b,e,l,m 
1260 b=0:e=DIMN(a) 

1270 REPeat I 

1280 IF b=e THEN RETurn b 
1290 m=(b+e)DIV2 
1300 IF a(m)<p THEN 
1310 b=m+11320 ELSE 

1330 e=m 
1340 END IF 
1350 END REPeat I 
1360 END DEFine bin_search 

Merk op dat ’sort' zichzelf kan 
aanroepen in regel 1200 en 1210. 
Deze aanroep noemen we recursie. 
Ik wil hier verder niet op in gaan, 
maar alleen zeggen, dat recursie 
door veel mensen als 'moeilijk' 
wordt omschreven. (Hoewel dat in 
feite niet waar is, maar dit terzijde.) 

De functie , bin_search' geeft een 
waarde terug door middel van de 
variabele die achter de ’RETurn’ 
staat. In het algemeen kan men 
zeggen, dat achter 'RETurn' in een 
'FuNction' een constante, een 
variabele of een expressie moet 
staan. In ieder geval geen (sub- 
)array's, omdat er maar met 1 
waarde teruggekeerd kan worden. 

Ik hoop, dat ik door de gegeven 
voorbeelden en de uitleg hiervan, 
het gebruik van parameters 
stimuleer. Mocht een en ander toch 
niet helemaal duidelijk zijn dan kom 
ik hier graag op terug. 


Met de programma's queuejnstall 
(hieronder®) en queue_asm (CD- 
service ®) f de Superbasic- of de 
Assembler versie, wordt het 
mogelijk om een nieuw device in te 
stellen. Dit device heet 'queue' en is 
eigenlijk een rij geheugenelementen 
waar een aantal operaties op 
uitgevoerd kunnen worden. 

Het belangrijkste nut van zo'n 
queue is om als 
communicatiekanaal tussen twee 
processen te fungeren. In UNIX 
heet zo'n ding een 'pipe'. Ik heb dit 
device voor de QL echter niet 'pipe' 
genoemd, omdat er al een device 
'PIPE' bestaat op de QL, dat echter 
niet goed werkt. Verder kan bij een 
echte 'pipe' het ene proces slechts 
schrijven in, en het andere proces 
slechts lezen uit die 'pipe'. 

Deze 'queue' voor de QL kent deze 
beperkingen echter niet. 


QUEUEJ queue device in ram 

[I] length of the queue 

default: queue_64 

example: 
a = respr(156) 
lbytes mdvl_queue,a 
call a 

EOT$ = chr$(4) /* Marker */ 

open #3,queue_1024 

dir #3,mdvl_ 

print #3,EOT$ 

repeat loop 

input #3,file$ 

if ( file$ = EOT$ ) then exit loop 
print file$ 
end repeat loop 
close #3 

N.B. :ln de toekomst zal ik vaker 
programma's insturen die gebruik 
maken van hetzelfde SuperBasic 
programmaom een machinecodefile 
aan te maken. Het loont dus de 
moeite om dit programma, eenmaal 
ingetypt, te bewaren. 


Peter Verhoef 


QUEUE-INSTALL 


Gert Veltink 


250: 

260 RESTORE 
270 READ filenames 
280 READ size 
290 READ linelen 

300 base = RESPR(((size DIV linelen)+l)*linelen) 

310 hex_retrieve base,size,linelen 
320 SBYTES filename$,base,size 
330 PRINT "Program Finished ...” 

340 STOP 
350: 

360 DEFine FuNction checkline(l$,c$,linelen) 

370 RETurn (LEN(1$) = (2*linelen» AND ( c$ = checksum$(l$)) 

380 END DEFine checkline 
390: 

400 DEFine PROCedure uppercase(l$) 

410 LOCal i 

420 FOR i = 1 TO LEN(1$) 

IF (CODE(l$(i)) >= CODE('a')) AND (CODE(l$(i)) <= CODE('f)) 
THEN 

l$(i) = CHR$( CODE(l$(i)) - CODE('a') + CODE('A’)) 

END IF 
END FOR i 
470 END DEFine uppercase 
480: 

490 DEFine FuNction hex_val(a$) 

500 RETurn ((a$(l) INSTR ’0123456789ABCDEF)-1)* 16 + ((a$(2) 
INSTR ’0123456789ABCDEF)-1) 

510 END DEFine hex val 


430 

440 

450 

460 






II 
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530 DEFine PROCedure hex_line(start,l$) 

540 LOCal i 

550 FOR i= 0 TO (LEN(l$)/2)-l 

560 POKE start+i,hex_val(l$((i*2 + 1) TO (i*2 + 2))) 

570 END FOR i 

580 END DEFine hex_line 

590: 

600 DEFine PROCedure hex_retrieve(start,size4inelen) 
610 LOCal a$,d$,c$,i 

620 FOR i= start TO start + size-1 STEP linelen 
630 READ a$ 

640 uppercase a$ 

650 d$= a$(l TO (LEN(a$)-2)) 

660 c$= a$((LEN(a$)-l) TO LEN(a$)) 

670 IF NOT checkline(d$,c$,linelen) THEN 

680 PRINT "Error in : ”;a$ 

690 STOP 

700 ELSE 
710 PRINT a$ 

720 END IF 

730 hex_line i,d$ 

740 END FOR i 

750 END DEFine hex_retrieve 

760: 

770 DEFine FuNction checksum$(a$) 

780 LOCal i,c_sum 

790 c_sum= 0 

800 FOR i= 1 TO LEN(a$) 

810 c_sum= c_sum + CODE(a$(i» 

820 END FOR i 

830 RETum hex_val$(c_sum MOD 256) 

840 END DEFine checksums 
850: 

860 DEFine FuNction hex_val$(x) 

870 RETum '0123456789ABCDEF((x DIV 16)+1) & 
'0123456789ABCDEF((x MOD 16)+1) 

880 END DEFine hex_val$ 

890: 

999 DATA ’flp2_queue',156,16 

1000 DATA '000000A0020000000018000047AC00004B' 
1010 DATA '621C8000000200001B9000000001000043' 
1020 DATA '021000001B98000061C400008190000057' 
1030 DATA '81A4000060FE0000000100000000000050’ 
1040 DATA '0000000000180000000000000B28000025' 
1050 DATA '0B2000005C10FF00000001600000000161' 
1060 DATA '0000000000001B8800005AA200005A8872' 


1070 DATA '02000000A20CFFFFF67E025800001B70E1' 
1080 DATA '00O0A8DA00004D240OFFO000010000048D' 
1090 DATA '000688000001840A00004BF08510800177' 



Het plan bestaat dat een technische 
school een serie produktie van een 
soort THOR cq QXT opstart. 

Dit houdt in QL, diskdrives, 


interface, voeding, etc allemaal in 
66n kast. Een en ander zou rond 
het eind van het jaar klaar moeten 
zijn en gaat ongeveer F 55,00 
kosten. 

Ik houd jullie op de hoogte. 

Fred van der Neut 


Screendump- 
routines voor de 
CGP 115 plotter. 


Ben Vos heeft maar direkt twee 
screendumproutines geschreven 
voorde CGP 115. Bovendien 
voegde hij een SB-programma bij 
voor het plotten van funkties. De 
sdump-routines voor algemeen 
gebruik en voor EASEL, zijn 
verkrijgbaar via de cartridge- 
service. De listing van hetfinktie- 
programma voIgt na de uitleg van 
Ben. 

Zoals aangekondigd is heb ik het 
Screendump programma voor de 
Tandy CGP-115 plotter ingezonden. 
Sorry voor de wat lange tijd die ik 
nodig had om het geheel rijp te 
maken voor de CD-service. Dit komt 
omdat ik een nieuwe versie van het 
programma heb geschreven die 
sneller is en bovendien de moge- 
lijkheid geeft een gedeelte van het 
scherm uit te printen. De snelhied 
(ge-Super-charged) bedraagt voor 
een geheel scherm ongeveer 2 uur. 

Na het opstarten vraagt de 
computer om het device en de 
schermnaam. Na een ENTER vraag 
de computer om de schermmode 
(256/512). Natwee maal enter wordt 
het scherm geladen. Nu kan men de 
grootte van het af te drukken 
window d.m.v. de cursortoetsen 
bepalen. De plaats van dit window 
kan men instellen met de 
cursortoetsen en de spatiebalk. Na 
een laatste keer ENTER zal de 
printer beginnen met de afdruk. 

De ook mee gezonden versie voor 
Easel maakt een redelijk ronde PIE 
alleen past TITEL er niet op en de 
kleuren zwart en wit worden 
verwisseld zodat niet het hele 
papiertje zwart wordt. 

Denkt U er wel om, dat er geen 
vingerafdrukken op het papier 
staan, deze zijn na het afdrukken 
zeer goed zichtbaar. Ook is het aan 
te raden voor de screendump een 
wat ruwere papiersoort te 
gebruiken. 

Voor een QL versie JM werkt de 
BASIC vesie van het programa niet 
helemaal. Het programma stopt dan 
bij 

LBYTES DEV$, 131072. 

Na een bewerking met Supercharge 
werkt hij wel. Kan iemand mij 
misschien vertellen hoe dit komt? 
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Tevens heb ik een programma 

meegezonden FUNCTIE genaamd, 
dat tot doel heeft wiskundige 
functies op de plotter uit te printen. 
Het programma laat drie functies in 
een assenstelsel toe. Helaas is de 
manier voor het inbrengen van de 
functies erg primitief; dit geschiedt 
namelijk d.m.v. het commando EDIT 
op de regels (240-280-320). Hierna 
kunt U het programma RUNnen 
waarna het programma vraagt om 
het aantal stappen van een 
schaaldeel voor de X-as of Y-as. 
(50 komt overeen met 1 cm.). 
Hierna vraagt het programma om 
het aantal uit te plotten functies en 
zal na een ENTER beginnen met het 
printen van de functie. Zelf gebruik 
ik het programa voor mijn wiskunde 
huiswerk. 

P S. Ik zoek kontakt met andere QL 
gebruikers in de omgeving van 
Uitgeest. Bent u er 6en bel dan 
a.u.b. even.__ 

..Ben Vos, 

Benrieiaseiaattll^ 
itli vp uitgeest; 

* tel. 02513-11958. 


100 INPUT #0;"GEEF AANTAL STAPPEN VOOR 1 EENHEID "-STAP 
110 OPEN#10,serlhc 
120 BAUD 600 

130 PRINT #10,CHR$(17)\CHR$(18) 

140 PRINT #10,"C0'VM240,-240’\ , TVX1,"-STAP- 

",";240/STAP\"H'\"X 11*STAP; 240/STAP 
150 PRINT #10,"H'\"X0,";STAP;",";240/STAP\"H"\"X0 'M*STAP" -• 
240/STAFYH" 

160 REPeat LOOP 

170 INPUT#0,"HOEVEEL FUNTIES WILT U PRINTEN <1 TO 3> 
"lAANTAL 

180 IF AANTAL>=1 AND AANTAL<=3 THEN • EXIT LOOP 
190 END REPeat LOOP 
200 FOR B=1 TO AANTAL 
210 A=0 

220 FOR X=-240/STAP TO 240/STAP STEP 1/STAP 
230 IF B=1 

240 Y=2* (X+2) A 2-3 :REMark HIER KOMT FUNKTIE 1 TE STAAN 

250 PLOT X*STAP,Y*STAP,1 

260 END IF 

270 IF B=2 

280 Y=2*X/(l+X):REMark HIER KOMT FUNKTIE 2 TE STAAN 
290 PLOT X*STAP,Y*STAP,2 

300 END IF 

310 IF B=3 

320 Y=2*X-1 :REMark HIER KOMT FUNKTIE 3 TE STAAN 

330 PLOT X*STAP,Y*STAP,3 

340 END IF 

350 END FOR X 

360 END FOR B 

361 PRINT #10,”H'YM0,-350" 

370 DEFine PROCedure PLOT (XAS%,YAS%,KL) 

380 PRINT #10,"C";KL 

390 IF YAS%<=240 AND YAS%>=-240 AND A=1 
400 PRINT #10,"D";XAS%;",";YAS% 

410 ELSE 
420 A=0 

430 END IF 

440 IF Aol AND YAS%<=240 AND YAS%>=-240 
450. PRINT #10,"M";XAS%;",";YAS% 

460 A=1 

470 END IF 
480 END DEFine 


















































THE LOST 
PHARAOH 

Jobert onderzocht dit doolhof voor 
u. 

U zit in een kollossaal labyrint onder 
de grond. Via vele wegen moet u in 
de verzegelde grafkamer van de 
farao met zijn vele schatten zien te 


komen. Vele rovers en archeologen 
hebben het v6or u geprobeerd maar 
hebben het niet gehaald.... Durft u 
het aan, met alleen een geweer bij u 
? U moet alle sleutels vinden om de 
deuren te openen zodat u de 
schatten kunt bereiken. Maar... 
kijkt u uit voor de monsters ! 

Het doel van dit 'cavern achtige' 
spel is om alle sleutels te vinden. 
Het labyrint bestaat uit vele 
schermen en ongeveer elk scherm 
heeft een zichtbare sleutel (een 
blok met een vraagteken). Als u die 
hebt kunt u een deur openen die u 
op uw weg tegen komt. Op dat 
zelfde scherm, waar u de sleutel 
gepakt hebt verschijnt, nadat u 
eerst van dat scherm 'at bent 
geweest' een andere sleutel of 
figuur (veranderd t.o.v. v66r dat u 
van dat scherm at ging). Dus zo 
eenvoudig als het mij in het begin 
leek is het ook weer niet. 


Als de zes levens voorbij zijn wordt 
de score getoond, het aantal 
sleutels en het aantal kamers dat u 
bezocht heeft. Het geluid kan aan 
het begin van elk spel aan, dan wel 
uitgezet worden. De monster 
verschijnen aan de ingangen van 
het scherm en op speciale 
plaatsen. 

Een grappig spel, al mocht wat mij 
betreft de gebruiksaanwijzing op de 
verpakking toch wel '‘lets' duidelijker 
zijn. Grafisch een aardig spel van 
Talent maar niet om er veel geld 
voorneerte tellen. 

THE LOST PHARAOH 
Talent computer systems fl. 65,- 

'THE LOST PHARAOH' werd ter 
bespreking beschikbaar gesteld 
door Computercollectief te 
Amsterdam. 
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Hoewel deze titel een 'noble- 
minded' Engelsman doetfronsen 
(to pee or not topee), 
gaat dit artikeltje van Erik over het 
getal pi. 

Als Ti-geintrigeerde voelde ik mij 
geroepen maar eens te reageren op 
het artikeltje in de April-Quasar dat 
dit onderwerp aansneed. 

Het daar afgedrukte Basic program- 
maatje (uit de Kijk) voert een 
benadering uit die volgens mij beter 
kan. Het probleem zit hem in de 
gebruikte formule, de Leibnitz serie 
(1674): 

1/4 = 1-1/3 + 1/5 -1/7 + ... 
Deze formule convergeert nl. nogal 
traag. 


Zo zijn er meer dan 300 termen 
nodig om 2 decimalen te vinden! 
(Archimedes was 2000 geleden 
eens aan het knutselen geweest om 
een programmaatje te schrijven dat 
n berekent tot bv. 100 o.i.d. 
decimalen (eerlijkheids-halve 

toeggeven; niet geheel succesvol), 
het zal echter duidelijk zijn dat de 
Leibnitz serie hiervoor niet zo 
geschikt is (zelfs niet in Turbo- 
Charge S.B.). 

Beter is Machn's formule (1706), die 
vond dat: 

1=16 arctan(1/5) - 4 
arctan(1/239) 

die zich, in combinatie met de 
fomule van Gregory: 


arctan x = x - (x A 3)/3 + 
(x A 5)/5 - (x A 7)/7 + ... 
in computers schijnt thuis te voelen 
(voor zover ik kan nagaan heeft de 
formule een miljoen decimalen op 
z'n naaml). 

Dat zal de liefhebber een paar 
uurtjes uitleven bezorgen (hopelijk 
met meer succe dan onderge- 
tekende...). 

Met belangstelling zie ik uit naar de 
resultaten: "QL:wereld- record 

houder op de 2Mb rc-kraken" o.i.d.. 

Tot slot een aanrader voor de 
geYnteresseerden: 

"A HISTORY OF n (PI)" van Peter 
Beckmann. 


Erik ywder Meuten 
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Machinetaal 

cursus 

Hoofdstuk 2 

Binair rekenen 

door 

Ard Jonker 


Voor wat het rekenen betreft 
houden we ons bij het binaire 
stelsel. Allereerst behandel ik de 
boolean algebra, het rekenen met 
logische waarden, uitgedacht door 
de heer Boole (spreek uit Boel). Dit 
is een algebra die gebruikt wordt om 
beslissingen te nemen op basis 
van een aantal invoergegevens. 
Vervolgens stappen we over van de 
logische- naar de binaire getallen en 
we zien enig binair rekenwerk met 
getalvoorbeelden. 

Boolean Algebra. 

Boolean algebra of logische algebra 
is een vorm van rekenen waarbij 
gebruik word gemaakt van twee 
waarden: 

TRUE en FALSE, 

in het nederlands: 

WAAR en ONWAAR. 

Hiermee kunnen we rekenen, net 
zoals U dat al jaren gewend bent te 
doen met 'gewone' getallen. Het 
enige wat we nodig hebben is een 
nieuw stel rekenregels en wat 
fantasie om ons een voorstelling te 
maken. 

Zoals ik al zei, boolean algebra 
heeft slechts 2 'getallen', TRUE en 
FALSE. U kunt zich het beste 
voorstellen dat TRUE een T 
voorstelt en FALSE een 'O'. Later 
zullen we zien dat we dan kunnen 
rekenen met de 'getallen' TRUE en 
FALSE. Op de waarden TRUE en 
FALSE kunnen we een aantal 
operatoren definieren. 

Een operator is een rekenkundige 
bewerking die werkt op getallen of 
waarden. We kennen uit onze 
schooltijd bijvoorbeeld de waarden 
van de natuurlijke getallen (0, 1, 2, 
3...) en de operatoren optelling (aan- 
gegeven door het V teken), het 
aftrekking (aangegeven met het '- 
teken), vermenigvuldiging ('x') en 
deling (;). 


In het boolean rekenen gaat het - 
met aangepaste regels- net zo. Je 
kunt twee waarden nemen en 
zeggen dat de uitkomst van een 
operator op deze twee waarden 
alleen TRUE (waar) is als beide 
argumenten (invoerwaarden) TRUE 
zijn. Dus als we de twee variablen P 
en Q nemen en de operator AND 
noemen, dan kunnen we de 
uitdrukking 'P AND Q' vormen. 
Deze uitdrukking levert TRUE op als 
zowel P als Q de waarde TRUE 
hebben. Heeft een van beide de 
waarde FALSE dan is de uitkomst 
van 'P AND Q' ook FALSE. We 
kunnen deze uitkomst weer 
toekennen aan een andere varia- 
bele, zoals we in de wiskunde 
kunnen zeggen a=b+c. Dan moet de 
variable wel van het type boolean 
zijn. (het type' is wat we uit Super 
Basic kennen als type string' voor 
text (aap$='noot') of type integer' 
voor gehele getallen (aap%=17)). 

Voorbeeld (dit programma is in een 
denkbeeidige taal!) 

Variable P,Q,R :boolean 
declareer variabelen 
let P = FALSE geef P de waarde 
'FALSE' 

let Q = TRUE geef Q de waarde 
TRUE' 

print (P AND Q) print de waarde 
van de expressie 
'P AND Q' 

De laatste regel geeft als uitkomst 
FALSE omdat P FALSE is. We 
kunnen een tabel maken van de 
invoer en uitvoer van de operator 
AND: links bovenin zetten we de 
operator, daarnaast zetten we 
horizontaal de verschillende waar¬ 
den voor de ene invoervariabele en 
verticaal de invoerwaarden voor de 
uitvoer. Rechts onder zien we vier 
verschillende uitkomsten: 

ANDQ^IF^TRUE | FALSE 


TRUE | TRUE | FALSE 
FALSE | FALSE | FALSE 


Zo kunnen we nog meer operatoren 
definieren. 

De OR (OF in het nederlands) 
operator, die TRUE afgeeft als een 
van beide operanden TRUE is. 

Dus 'P OR Q' is TRUE als tenminste 
een van beide de waarde TRUE 
heeft. In tabel: 

ORQi|P-*| TRUEI FALSE 


TRUE | TRUE| TRUE 

FALSE | TRUE| FALSE 

Verder hebben we de NOT (niet) 

operator, die werkt op 1 argument, 
en de waarde hiervan omdraait. 

Zo is NOT TRUE (NIET WAAR) gelijk 
aan FALSE (ONWAAR). U ziet dat 
de nederlandse taal ons al flink 
helpt. Tabel: 

NOT P | TRUE | FALSE 


FALSE| TRUE 

We kunnen ook allerlei operatoren 
gaan combineren. De operatoren 
kunnen ook op groepen van 
waarden werken. We zijn dit al 
gewend bij gewoon rekenen, bij¬ 
voorbeeld 100-(3+4)x(7-2). Hier re¬ 
kenen we eerst uit (3+4) en (7-2), 
waarna we de uitkomsten ver¬ 
volgens verder verwerken: 

(100-((3+4) x (7-2)))= 
(100-( 7x5))= 
(100-( 35 ))= 

65 

Op de zelfde wijze kunnen we 
bijvoorbeeld 'uitrekenen' wat de 
waarde is van de boolean uitdruk¬ 
king 'NOT ((P AND Q) OR (P OR 
Q))'. 

We werken in de door de haakjes 
aangegeven volgorde steeds een 
aantal variabelen om met behulp 
van de operatoren. Als we de 
waarden weten van P en Q, dan 
bepalen we eerst de waarden van 'P 
AND Q' (noem de uitkomst hiervan 
bijvoorbeeld S; dus 'let S= P AND 
Q'), en van 'P OR Q' (noem deze 
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uitkomst R; 'let R * P OR Q'). 
Vervolgens kunnen we de waarde 
van 'R OR S' bepalen. Dit is dus een 
samentrekking van de hele 
uitdrukking (P AND Q) OR (P OR Q). 
Op de uitkomst hiervan laten we de 
NOT operator los, die het resultaat 
juist omkeert. 

Voorbeeld: P is TRUE, Q is FALSE. 
Invullen geeft: 

NOT ((P AND Q) OR (P OR Q))= 

NOT ((TRUE AND FALSE) OR 
(TRUE OR FALSE))* 

NOT (( FALSE )OR( TRUE ))= 

NOT ( TRUE )« 

FALSE. 

Een bewering die altijd waar is 
(TRUE) noemen we een tautologie. 
Er zijn uitdrukkingen die een 
tautologie vormen. Deze uitduk- 
kingen hoeven we dus nooit na te 
rekenen. 

Zo is TRUE OR FALSE altijd TRUE. 
De uitdrukking P OR (NOT P) is ook 
een tautologie; reken maar mee: 

voor de OR operator moet 
tenminste 66n van beide argu- 
menten TRUE zijn om TRUE als 
resultaat te krijgen. Nu zijn er in de 
Boolean algebra maar twee 
waarden, TRUE en FALSE. Dus P is 
TRUE of FALSE; NOT P heeft dan 
respectievelijk de waarde FALSE of 
TRUE. 

In de uitdrukking P OR (NOT P) is 
dus P of (NOT P) waar. De uit¬ 
drukking (P OR (NOT P)) is dus 
altijd waar, en daarom een tauto¬ 
logie. 

Vul maar in. 

P-TRUE, dan 
(TRUE OR (NOT TRUE))- 
(TRUE OR FALSE)- 
TRUE. 

P-FALSE, dan (FALSE OR (NOT 
FALSE))- 
(FALSEORTRUE)- 
TRUE. 


Verder zijn er nog de boleaanse 
bewerkingen EOR (ook wel EXOR of 
Excluseve OR operator, waarbij de 
uitkomst alleen d&n TRUE is als de 
argumenten ongelijk aan elkaarzijn. 

EOR Q i | R*| TRUE | FALSE 


TRUE | FALSE| TRUE 

FALSE | TRUE | FALSE 

Verder zijn er nog een aantal 
wiskundig gedefinieerde boolean 
operators die voor ons van minder 
belang zijn als 'daaruit-volgt' ('=>'), 
'dan-en-slechts-dan ('<=>'). 

Deze laten we verder buiten be- 
schouwing. 

We kunnen ons dus nu bij de 
woorden TRUE, FALSE, AND, OR, 
NOT en EOR het nodige 
voorstellen. Later blijkt dat deze 
algebra een uitstekend en snel 
hulpmiddel is als we in een machine- 
taal programma bepaalde voor- 
waarden gaan testen. Door bij 
bitreeksen (bytes of langer) bit voor 
bit gebruik te maken van deze 
algebra kunnen we namelijk uit een 
hoeveelheid bits in 6en stap 
bepaalde bits selecteren. Door de 
AND operator los te laten op de 
gehele serie bits en een zogenaamd 
'masker'. Een masker is een 
bitpatroon dat aangeeft welke bitjes 
uit een byte of andere bitreeks we 
wel of niet widen gebruiken. Stel dat 
u op 66n of andere manier een 8- 
bits woord inleest waarvan U 
slechts een aantal bits nodig hebt. 
Voorbeeld: 

Met het KEYROW commando krijgt 
u een getal dat aangeeft welke 
toetsen ingedrukt zijn. Dat ziet u 
niet zo direct aan het getal af, maar 
als U het binair uitschrijft, zoals we 
dat een tijdje geleden gedaan 
hebben ziet U dat er 8 bits nodig zijn 
om een getal tussen 0 en 255 aan te 
geven. Bij het commando KEYROW 
in de userguide lezen we dat we een 
argument meegeven dat bepaalt 
welke rij wordt gelezen. De toetsen 
van de betreffende rij worden 
bekeken, en voor iedere ingedrukte 
toets wordt op de betreffende 


plaats een 'V in het returnbyte 
gezet. (een returnbyte is de waarde 
die een functie, hier dus KEYROW, 
teruggeeft). 

In de userguide staat boven het 
vierkante diagram (in het keywords 
gedeelte van de manual) aange- 
geven welke waarde de bijbeho- 
rende macht heeft. Met een beetje 
lenige vingers moet met het onder- 
staande programma bijvoorbeeld op 
een gegeven moment het getal 39 
verschijnen. Hiervoor moet U de 
toetsen up, left enter en Y induwen. 
Dit lijkt een onzinnige bezigheid, 
maar U kunt dit later gebruiken om 
bijvoorbeeld alleen pijltjes toetsen 
te bekijken, terwijl de gebruiker 
(speler) ook de spatiebalk heeft 
ingedrukt; of U kunt alleen naar de 
links-rechts pijltjes kijken, terwijl de 
speler, die een joystick gebruikt, 
onwillekeurig ook een of meer 
andere pijltjes heeft ingedrukt. 

Als voorbeeld nemen we het geval 
van iemand die de gewoonte heeft 
tijdens zijn spel ook ongemerkt zijn 
hand te laten leunen op de enter- en 
V toets. Hierin zijn we voor ons 
spelletje niet geinteresseerd. 

REPeat loop: PRINT KEYROW(I) 

Binair geschreven geeft het 
indrukken van de toetsen 'CR', 'V, 
'up' en 'left' 00100111 (32+4+2+1). 
Als we een spelletje geschreven 
hebben met een beweegbaar ding 
op het scherm, zijn we alleen 
geinteresseerd in de richtings- 
toetsen, die volgens de QL USER- 
GUIDE met de bits 1,2,4 en 7 
worden aangegeven (vergeet niet 
dat we beginnen te tellen bij bit 0). 

De overige bits zijn voor ons dan 
niet van belang. Echter, wezien dat 
in bovenstaand voorbeeld bit 0 ook 
is ingedrukt. We verwijderen deze 
bits Never. Hiertoe passen we de 
zgn. Bitwise AND toe. Dit is de AND 
operator die we al kenden en bit 
voor bit toepasten, maar nu doen 
we het met 8 bits tegelijk, namelijk 
de 8 bits die uit het KEYROW 
commando tevoorschijn kwamen. 
We maken een masker waarin 
alleen een '1' staat op de plaatsen 
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van de bits waarin we zijn 
geinteresseerd, dus 10010110. 
(resp. de bits voor down, right, up 
en left zijn opT gezet). 

Nu gaan we bit voor bit de AND 
operatie uitvoeren. Hiervoor heeft 
SuperBasic de operator Het 
masker, dus het binaire getal 
10010110 is decimaal (128+16+ 
4+2=) 150. 

In SB kunnen we dus zeggen: 
’Dirkeys=KEYROW(1 )&&150\ 
Hiermee komt in Dirkeys het 
resultaat van KEYROW(I) te staan 
waarbij Dirkeys alleen bits kan 
hebben aanstaan (T) op die 
plaatsen die in het binaire masker 
een '1* hebben. De overige bits uit 


het resultaat van KEYROW(I) 
worden op 0 gezet; deze informatie 
valt dan weg. Binair zou het als 
voIgt urtzien: 

keyrow(1) levert 00100111 

masker is 10010110 

ANDoperatortoepassen - 

resultaat 00000110 

We kunnen natuurlijk ook een 
masker maken dat precies 1 bit 
selecteert. Nemen we als masker 
01000000, dan zal de Bitwise AND 
operatie op het masker met de 
gegevens van KEYROW(I) alleen 
TRUE (T) opleveren als de 
spatiebalk is ingetypt. 


U moet even goed twee begrippen 
uit elkaar houden waar ik misschien 
niet erg duidelijk over geweest ben. 
Bitwise AND en Logishe AND 
zijn twee begrippen die erg 
op eikaar lijken, maar niet 
gelijk zijn. 

Bitwise AND betekent dat we bit 
voor bit twee binaire getallen 
vergelijken, terwijl Logisch AND 
alleen kan werken met de waarde 
TRUE en FALSE. 

Desalniettemin wordt een resultaat 
als FALSE bestempeld als het 
resultaat van een berekening 'O' 
oplevert, en TRUE als er een 
positief getal uit komt. 


Opgave 

Bij de meeste bankfilialen wordt uw 
kleingeld met een machine geteld. 
De bankbediende gooit uw geld in 
een draaiende trommel, waaruit snel 
een voor een de munten worden 
weggeschept en in een sorteerbuis 
worden geworpen. Vanuit de sorteer¬ 
buis vallen de munten in een 
passende telbuis. Voor ieder munt- 
stuk is er een telbuis. Munten die 
niet precies de goede afmetingen 
hebben vallen in een aparte opvang- 
schaal. 

Omdat in Nederland het vijfgulden- 
stuk gemaakt gaat worden, is er 
ook alvast een buis aangebracht 
om deze munten te tellen. Aan de 
telbuizen zitten detectoren die 
kunnen ’zien' of er een muntstuk 


De grote toename van het aantal 
leden maakthet nuttig wat van die 
allereerste zaken nog eens op een 
rijtje te zetten. Voor ons oude rotten 
zitten er onder deze beginners-tips 
vast wel een aantal die we allang 
weer waren vergeten, en toch.... 
Maak er een gewoonte van: sluit en 
zet alls peripherie aan voordat de 
QL wordt aangezet (ECHT nodig 
voor interfaces en ROM); 


langskomt. Door de waarde van 
ieder muntstuk dat langs komt op te 
tellen bij het totaal bedrag wordt uw 
geld geteld. 

De automaat van ons voorbeeld 
geeft steeds een getal af dat met 
signalen die '1* of 'O' zijn aangeeft of 
er een muntstuk gezien werd. Deze 
signalen zijn door U uit te lezen als 
bits. U krijgt dus van een geld-tel- 
automaat een 8 bits getal door. De 
automaat levert getallen af waarin in 
binaire vorm de munten: 
nul-Vijfg-Rijksd-Guld-kwar-dub- 
stuiv-ct 

worden aangegeven. 

Ziet de automaat dus een dubbeltje, 
dan gaat het 2e bit van rechts 
'aan';dwz, hij wordt T. 


omgekeerde volgorde als je ROM 
wilt wisselen of de QL wilt mee- 
nemen naar de bijeenkomsten; 
zet datum en tijd zo gauw mogelijk 
in je systeem, ook al heb je nu geen 
programma's die er gebruik van 
maken: eenmaal aangeleerd heb je 
er in de toekomst alleen maar profijt 
van. 

SDATE is nog steeds het 
eenvoudigst, een vragen naar da- 


Nu zijn centen geen wettelijk betaal- 
middel meer en ook het vijf gulden- 
stuk (nog) niet. Er moet dus een 
signaal gegeven worden als er op 
de plaats van de centen een T 
staat. Het zevende bit, dat over is, 
staat altijd op nul. Aan U de opgave 
om een masker en een bijbehorende 
operatie te bedenken die: 

-een T afgeeft als een valse munt 
ingeworpen is 

-het ingevoerde getal zuivert van 
valse waarden 

-de hierboven gevonden maskers 
(eenmalig) aanpast als ook de 
stuiver uit roulatie gaat 
-de bovenstaande maskers (een¬ 
malig) aanpast als het vijfgulden 
stukgeldig wordt. 


turn en tijd -met controle op 30 
februari en zo- in je boot- pro- 
gramma is nogal omslachtig. Het 
meest simpele is: laat de QL aan 
staan! 

FORMAT cartridges een aantal 
keren, ook als een veel gebruikt 
cartridge tekenen van vermoeidheid 
begint te vertonen (als laden echt 
lang gaat duren). 



543 
























































































































































Gebruik een naam b.v. je initialen, 
doe je dat niet dan krijg je na 
gebruik van DIR in de Psion- 
programma's en vervolgens LOAD 
alles onderlijnd op het scherm, dat 
staat siordig en leest moeilijk. 

Een 66n-regelige opdracht luidt: 

FOR a-1 TO 4:FORMAT 
MDV1 JHM:FORMAT 
MDV2_HM870510 

De Psion-programma's zijn 
zondermeer prima (vergelijk maar 
met de ingewikkelde zaken op je 
werk en neem dan ook de prijs in 
gedachten). Des te eerder je de 
commando's (oproepen met F3) 
kent, des te vlotter kun je werkeh 
door ai dat geschrijf daar aan de 
bovenkant van het scherm 
achterwege te laten door F2 in te 
toetsen. Ben je even kwijt wat je 
met een commando kunt doen, dan 
gewoon weer even F2. 

Quill is wat langzaam als je je 
eenmaal geschreven memoires in 
omgekeerde tijdsvolgorde wilt 
hebben. Hou het op een aantal 
bladzijden per keer, je verkleint het 
risico van verlies van te veel tijd, 
want het overkomt ons aliemaal een 
keer dat we middenin een -lang- 
stuk vastlopen, koffie morsen, over 
de draad struikelen of dat de 
vaatwasmachine wordt aangezet. 

Ik ben helaas nog geen PATCHes 
tegengekomen die Quill's design- 
gegevens veranderen: ik wil geen 
Upper/Bottom margins, Footer 
bevalt mij meestal ook niet en 
Indent laat ik veelal achterwege. 
(Zo kan het ook prettig zijn Paper 
length op een andere waarde te 
hebben staan). 

Totdat iemand met een "verander"- 
programma komt heb ik een leeg 
document gemaakt waarin de 
gewenste wijzigingen zijn opgeno- 
men, dit wordt geladen en ik ben 
veriest van de noodzaak om aan 
Footer enz. te denken. Diverse stan- 
daard -lege- _doc's zijn uiteraard 
makkelijk voor verschillende 
printers of Headers. 

Gebruik F4 en Paint als het 
document klaar is om onderlijning, 
vet e.d. aan te brengen. Hetzelfde 
geldt voor de overige lay-out: 
Hyphenate, Margins (eventueel per 
paragraaf), Justify enz. 

Deze "kosmetika" nadat de 
spreadsheet-gegevens zijn inge- 
voerd geldt eveneens voor Abacus. 


Textverwerking, met meer mogelijk- 
heden: ledere Ql-bezitter, weet dat 
Quill beperkingen heeft. Aan deze 
beperkingen komt langzaam maar 
zeker toch een einde. ledere wens 
wordt vervuld, al duurt het soms wel 
wat lang. 

Een van de problemen die ik het 
meest hinderlijk vond, was de 
printerdriver. Zijn er textverwerkers, 
waarbij je onder het printen, nog net 
van lettertype kunt wisselen, bij 
quill gaat dit niet meer, na het 
opstarten. Enig gespeel met 
INSTALL-BAS bracht mij ertoe om 
dit programma grondig te herzien. 
Nadat deze wijzigingen waren 
doorgevoerd, kon ik eindelijk meer 
printer-drivers maken, zonder 
iedere keer de printer_dat-file van 
een andere naam te voorzien. Met 
dit aangepaste programma kon ik 
opgeven, welke naam ik wilde 
hebben i.p.v. "printer_dat". Zo had 
ik bijvoorbeeld pica_dat en iec_dat 
( schuingedrukt , elite, 

kettingpapier). 

Vervolgens moest Quill nog met 
config_bas zo aangepast worden 
dat de printerdriver op een ramdisk 
werd gezocht (Indien u geen 
geheugenuitbreiding heeft, kunt u 
ook b.v. mdv2_gebruiken). 

Het bootprogramma vroeg om de 
naam van een printerdriver, diedan 
naar ram werd gecopieerd. Indien ik 
dan tijdens quill toch een andere 
printerdriver nodig had, dan kon ik 
deze met "other, files, backup" van 
mdv1_ naar ram copieren onder de 
naam printer__dat. 

De huidige situatie is echter veel 
meer om aan te bevelen: 

Bij de cartridge-service is er 
een cartridge te verkrijgen 


Zelfs al is voor alle cellen 2 deci- 
malen opgegeven, ze vesrehijnen 
pas als de Units, cells, decimals, 
decimal places 2, range 
d31:z47 wordt opgegeven m& 
cijfers in die betreffende cellen. 

Laat andere QL-ers weten wat je 
ervaringen en tips zijn: schrijf een 
Quilletje voor Quasar. 


(UB 34) waarop een zeer 
professloneel programma 

staat. Dit programma stelt 
iemand in staat om gelljk- 
tijdig 10 printerdrivers te 
hebben. 

Het programma vraagt om een 
cartridge waarop quill staat. Deze 
(niet de orginele) stopt men in drive 
twee. Vervolgens drukt men op een 
toets, en men heeft een nieuwe 
versie van QUILL, vooropgesteld 
QUILL was versie 2.00-2.35. Versie 
2.35 is ook (geloof ik) bij de 
cartridge-service te verkrijgen. 

Op het eerste gezicht ziet men 
geen verschil met een normale 
QUILL, echter nadat men de optie 
'printen' gekozen heeft en men 
gezegd heeft naar printer of file, 
vraagt de computer om het nummer 
van de printerdriver (In het 
bovenste window, waar alle 
meldingen vanuit QUILL 
desgewenst voorkomen, staat zelfs 
wat je mag en moet doen). De te 
gebruiken printerdrivers heten 
printer#0_dat t/m printer#9_dat. 
Met deze printerdriver wordt nu de 
text uitgeprint. De vriendelijkheid 
van QUILL heeft er dus niet onder 
geleden. De installatie van deze 
extra mogelijkheid bij QUILL is zeer 
eenvoudig, en van een duidelijke 
handleiding voorzien. Dit 
programma is echt een van de 
leukste programma's die ik ooit 
gezien heb. Iemand dit met meer 
soorten papier en of lettertypes 
werkt, moet dit programma hebben 
.Indien men aan tien printerdrivers 
nog niet genoeg heeft, kan men de 
twee hierboven beschreven metho- 
des combineren, mijn versie van 
installjbas ligt binnenkort ook bij de 
cartridge-service. 
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'THE EDITOR' IS ZO 



SLECHT NOG 



NIET... 




Joos herwaardeert 'The editor', het 
programma.... 

'The editor", een programma dat 
hoog werd aangeprezen in QL-world 
(dit geldt trouwens bijna voor alle 
programma's, tenzij ze echt 
hopeloos zijn) is niet zo slecht, als 
in een eerdere QUASAR 
beschreven is. Het programma is 
echter een echte EDITOR en geen 
TEKSTVERWERKER. 

Een editor is een programma, 
waarmee men meestal andere 
programma's schrijft. Zo kan men 
'The editor 1 gebruiken om er Pascal- 
of C-programma's in te schrijven. 
Deze editor begint pas redelijk te 
worden vanaf versie 1.2, maar de 
nieuwe versies 1.10 en verder (Wie 
heeft er de ge-TURBO-de versies 
uitgeprobeerd?) werkt echter toch 
heel aardig, vooropgesteld dat men 
een geheugenuitbreiding heeft. Men 
moet echter wel geregeld en veel 
werken met dit programma, wil men 
er plezier aan krijgen. Indien men 
veel PASCAL-programma’s schrijft, 
weet men een echte editor te 
waarderen. 

The editor' is een programma dat 
alles kan, zelfs de dingen die men 
niet nodig heeft. Zo zijn de 
find/replace-mogelijkheden enorm. 
Het programma ziet het verschil 
tussen echte woorden en stukken 
van woorden. Zo kan men b.v. bij 
het editeren van een basic-program- 
ma zeggen: Verander alle i's in i%, 
zonder dat 'IF' in 'l%F' wordt 
veranderd. 


Men kan ook naar delen van 
woorden gaan zoeken: indien de 
regel begint met 'IF', en eindigt met 
'GOTO ...', dan kan alles tussen de 
'IF' en de 'THEN' tussen haakjes 
gezet worden. Dit en meer in de 
praktijk niet vaak voorkomende 
dingen kan men met The editor' 
'gemakkelijk'doen. 

Dit gemakkelijk moet men echter 
wel met een grote korrel zout 
nemen, daar men wel eerst de 
moeilijk te begrijpen commando's 
heeft moeten leren toepassen. 

Misschienga ik 'The editor' ook nog 
als tekstverwerker gebruiken, maar 
dat is pas echt mogelijk nadat men 
The editor' enkele commando's 
heeft bijgeleerd. Juist ja ook dit is 
mogelijk: met "The editor”, in "The 
editor" programma's schrijven, 

welke "The editor" dan weer kan 
gebruiken als commando's, welke in 
de commando-regel worden 

nageladen (zoiets als bij QUILL F3, 
maar dan met een commando om in 
de F3-mode een programma, of zelf 
gemaakt commando uit te 

voeren).( ?????????? ®) 
Tekstverwerking is dientengevolge 
ook mogelijk, al moet men er dan 
een week voor uittrekken om 
commando’s te construeren die een 
automatische pagina-nummering, 
headers of footers mogelijk maken. 

'The editor" is slechts een editor, 
alleen dan een hele goede. 



Hans Meijeraan geeft zijn 
ervaringen met Qflash weer. 

Het voordeel van meer geheugen is 
niet alleen grotere programma's, 
langere documenten in Quill of meer 
complexe Abacus-spreadsheets; 
de mogelijkheid van ram-disks is 
veelal van meer belang. 

Ram-disks zijn gereserveerde 
gebieden in het geheugen die op 
precies dezelfde manier werken als 
gewone disks (of cartridges): je 
kunt er files wegschrijven en 
teruglezen; omdat er geen input/ 
output naar een mechanische 
eenheid plaats vindt werken ram- 
disks veel sneller. "Gereserveerd 
geheugen" (beschermd tegen alles 
wat QDOS of Quill met geheugen 
zou willen doen) betekent dat er een 
programma moet zijn om dat 
geheugen te vrijwaren van onge- 
wenst gebruik: RAM-disk software. 
Kleine machinecode programma’s 
die er in een rijk aanbod (al dan niet 
ingebouwd in interfacekaarten) voor- 
handen zijn. Met bijbehorende 
claims omtrent snelheid. 

Veel RAM-disk software laat je 
geheugen formatteren, zoals je dat 
met cartridges of disks doet, maar 
met vermelding van het aantal 
"sektoren": 

FORMAT RAM1_200 
Hiermee wordt 100K (weet je nog 
wel, een sektor is 512 bytes, ,5K) 
gereserveerd. Ook net zoals bij 
extern geheugen kan je tot 8 
eenheden gaan, en DIR RAM1_ 
geeft je wat je erin hebt weg- 
geschreven; programma's of data 
dat maakt geen verschil. Schrijf je 
te veel weg in een RAM-disk, dan 
krijg je de "drive full" foutmelding. 

Er zijn programma’s die RAM 
dynamisch reserveren (en vrij 
geven). Dan is geen FORMAT nodig 
en je hebt daarmee een veel grotere 
vrijheid in het gebruik van je QL: 
naar behoefte wordt meer geheugen 
toegekend aan wat je RAM1_ 
noemt. E6n van de eerste pro¬ 
gramma's van dit type was QfLash, 
geschreven door Carsten Koch, en 
dat is een ... Oosterbuur! QfLash 
kent een aantal verschijnings- 
vormen: op cartridge (en dan all6en 
de RAM-disk met op 'n tweede 
cartridge ram-toolkit software en 
een paar demonstratie-program- 
jna's plus o.a. een reset128), als 
EPROM 0 f 
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ingebouwd in Sandy's SuperQboard - 
andere 

interface/geheugenuitbreidingskaar 
ten volgen of zijn nu ook in de 
verkoop. In de beide laatste uit- 
voeringen ontbreken vanzelfspre- 
kend de demonstratie- en andere 
SB-programma's (reset128). Ik geef 
de voorkeur aan cartridge: laden 
kost niet veel tijd, per slot van 
rekening gaat het om kleine 
machinecode programmes en Tony 
Tebby's Toolkit II (zonder dat doe je 
jezelf enorm te kort; de Toolkit is 
voor iedere QL-er een must) zit in 
de ROM-poort. 

Heb ik het goede kanaal op de TV 
gevonden, dan gaat de RAM-disk + 
toolkit kopie in mdv1_ het origineel 
in mdv2_ en wordt F2 ingedrukt. Na 
weinige sekonden wordt druk op de 
spatiebalk gevraagd voor de 
obligate controls van het origineel in 
mdv2_ en kort daarna is ook de 
toolkit gemstalleerd. 

RAMJJSE MDV is de methods om 
lezen van/schrijven naar cartridge 


laten plaatsvinden; wil je later je 
files naar disk/ cartridge saven dan 
is eerst weer RAMJJSE RAM 
nodig. 

QfLash biedt een elegantere 
oplossing: met DEVNAME MDV,MIC 
en DEVNAME RAM,MDV wordt 
hetzelfde bereikt, zij het dat je MIC 
moet gebruiken i.p.v. MDV als je 
van/naar de fysieke cartridges 
verwijst. Na beide DEVNAMEs 
(check de status met commando 
DEVLIST) laad ik bijv. Quill met: 

MDVLOAD MIC1__,MDV1_ 
en de cartridge is in zo'n twintig (ja- 
zeker!) sekonden in geheugen geko- 
pieerd. Dit kan langer duren als er 
veel slechte sektoren op de 
cartridge voorkomen, dat is dan een 
aanwijzing om alles wat erop staat 
te saven en dan opnieuw te 
formatteren. Zo gaan ook de 
dokumenten waarmee ik wil werken 
naar MDV2_ (geheugenruimte dus). 
En dan zoals gebruikelijk: LRUN 
MDV1_boot ... 


Na gedane arbeid is het goed 
Saven. Zonder verdere aanwij- 
zingen, de default-waarde derhalve, 
wordt dat MDV2_ en dat is nog 
immer geheugen, zodat het saven 
razendsnel gaat. Wil je direkt naar 
cartridge dan moet voor de file- 
naam MIC1_ worden ingetikt. 

QfLash biedt een snel alternatief: 
door gebruik te maken van 
SBACKUP MDV2_,MIC1_ (na Quit). 
Alle bestanden in mdv2_ die een 
wijziging hebben ondergaan worden 
gekopieerd met automatische 
overschrijving. De true zit 'm in het 
feit dat QDOS bij iedere mutatie in 
een bestand ook datum en tijd weg- 
schrijft -hier blijkt hoe belangrijk het 
is om SDATE uit te voeren iedere 
keer wanneer je je QL aanzet- en 
vergelijking bepaalt of een bestand 
moet worden ge-SBACKUP-ed of 
niet. Met de tegenhanger van 
MDVLOAD, FBACKUP of te wel fast 
backup, kan je evenwel alle 
bestanden kopieren. QfLash is een 
geweldig produkt voorrond £20. 



Uncle Clive greep, daarbij een 
Minister van Handel onderbrekend, 
de microfoon voor de verzamelde 
pers op de laatste Which 
Computer?-show en kondigde zijn 
nieuwste geesteskind aan: de Z88. 
Sinclair, of Cambridge Computer, 
zoals de firma van Sinclair nu heet, 
behoort dus nog niet tot de 
computerfolklore. In mei van dit jaar 
startte een mailorder campagne 
voor de Z88, 'n draagbare machine. 
Met 'n prijs van F 650,00. (klopt dat 
we/3D)en 'n gewicht van 900 gr. zou 
dit 'n doorbraak betekenen in de 
'schootcomputers'. De grootste 
rivaal is Tandy die voor iets 
vergelijkbaars F 975,00 vraagt. De 
Tandy 102 weegt meer dan het 
dubbele. Het verschil zit hem eigen- 
lijk niet in het gewicht of de prijs, 
maar in de ingebouwde software en 
die is superieur. 

De Z88 heeft een geintegreerd 


spreadsheet, editor, notaboekje en 
kalender. Daarbij komt nog BBC 
basic, en meer RAM. De standaard 
machine heeft 'n Z80 aan boord, 
128K ROM en 32K RAM. Binnenin 
zitten 4 VLSI-chips en 'n luid- 
sprekertje. Het LCD-display is van 
EPSON en is 100 kolommen bij 8 
regels. Het toetsenbord is iets 
kleiner dan normaal. Het geheel is 
precies zo groot als een A4 blad en 
2 cm. dik. 

Discdrives worden vervangen door 
kleine doosjes (2x1 cm.!) solid 
state geheugen (in theorie tot 
4Mbyte). Andere dan de inge¬ 
bouwde programmes worden via 
insteekmodules 'geladen'. Een 
slimme truuk om tekstverwerken 
mogelijk te maken is het gebruik 
van 'n venster aan de rechterkant 
van het display waarbij karakters 
voorgesteld worden als punten. Die 
stellen dan de bladspiegel voor 


terwijl op het achtregelige venster 
gewone tekst kan getypt worden. 

In de software zitten nog meer 
slimmigheidjes: de kalender 'hangt' 
aan het notaboekje. De kalender 
gaat in het notaboekje kijken naar 
een alarmtijd en verwittigt voor een 
afspraak, waarvoor die alarmtijd 
gezet is. Verder kunnen in dat 
notaboekje afspraken volgens 
kategorie gestopt worden en ook zo 
opgezocht worden. 

Er is maar 6en 'maar' ... het proto¬ 
type dat Sinclair toonde was 
een houten model. Het 
productieteam vertelde er wel bij dat 
ze er vertrouwen in hadden binnen 
enkele maanden een werkende 
machine voor te stellen. De soft¬ 
ware, die er op het eerste zicht 
goed uit ziet, is echter al voor het 
grootste gedeelte klaar en draaide 
op een BBC met 'n Z80 co-pro¬ 
cessor. 
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Op de bijeenkomst in Utrecht op 23 
mei hebben we bezoek gehad uit 
Belgie van een aantal heren die 
aldaar reeds een QL-databank 
hebben draaien. Daar werd gewerkt 
met het Astracom-pakket be- 
staande uit modem + software. Het 
geheel werkte op diverse baudrates 
en volgens de Viditel (Prestel) 
norm. De club heeft zo'n pakket 
besteld. 

Verder heb ik ook eens wat 
gespeeld met het Miracle Systems 
modem. Helaas moet ik echter 
zeggen dat het geen onverdeeld 
succes was. Het bleek niet mogelijk 
verbinding te krijgen met bepaalde 
databanken, met name met Fido- 
nodes. Oorzaak is waarschijnlijk de 
te lange wachttijd van het modem 
(er wordt 8 a 10 seconden gewacht 
na het bellen) waardoor de 
databank "ophangt" of een andere 
baudrate probeert. Ook wacht het 
modem niet op de kiestoon na het 
kiezen van het netnummer, wat ook 
problemen kan geven bij oudere cen¬ 
trales. De bijgeleverde software ziet 
er redelijk goed uit, al vertoont de 
Viditel-weergave wat foutjes bij 
dubbele-hoogte letters (je kunt bv. 
letters krijgen die maar voor de helft 
knipperen). Verder is het niet zo fijn 
dat er met verzenden van een 
toetsdruk gewacht wordt tot het 
beeld geheel op het scherm staat. 
Snel bladeren is daardoor niet 
mogelijk. Het meest jammer is 
echter dat er voor het up- en 
downloaden voor zover ik kan 
nagaan geen standaard protocol 
zoals bv. XMODEM wordt gebruikt, 
maar een ander, mij onbekend 
protocol. Nog wel leuk voor user to 
user communicatie als de andere 
kant hetzelfde programma gebruikt, 
maar voor het downloaden van een 
file uit Fido ben je nu aangewezen 
op minder betrouwbare methodes. 
Niettemin, bovenstaande pro¬ 
blemen zijn waarschijnlijk allemaal 
software-problemen en we hebben 
Miracle Systems al op de hoogte 
gesteld. Er is dus nog hoop... 



OVER FILENAMEN 
EN "FILENAMEN 11 


Het is algemeen bekend dat een file 
altijd een naam heeft, en dat die 
naam opgegeven moet worden als 
we er een of ander commando op 
willen loslaten. Omdat een naam 
bestaat uit een aantal letters, 
cijfers, leestekens en wat dies meer 
zij ligt het dus voor de hand hiervoor 
een string te gebruiken. Dus krijgen 
we bijvoorbeeld de volgende 
commando's: 

LOAD 

"mdvl _testprog_bas" 

A$="flp2_onzin_bas" 

SAVE A$ 


dat "mdv1_1_doc" geen geldige 
filenaam is. Overigens, degenen die 
het wel begrijpen kunnen hiervan 
mooi gebruik maken om hun 
programma's ietsje beter te 
beveiligen. Zoals gezegd zal een 
beginner dus stuklopen op COPY 
mdv1_1_doc TO mdv2_1__doc maar 
er zijn nog fraaiere mogelijkheden. 
Denk maar aan namen als "mdv1_" 
en "mdv1_". De laatste is wel 
zonder aanhalingstekens in te 
typen maar zal nooit in de 
DIRectory verschijnen (ook niet als 
bianco regel)! 


Nu is het iedere keer intypen van 
die aanhalingstekens, zeker in 
directe commando's, nogal 
vervelend. En daarom besloten de 
ontwerpers van de QL een trucje 
toe te passen waardoor je die 
aanhalingstekens onder bepaalde 
voorwaarden kon weglaten. Ze 
maakten alle procedures die met 
filenamen werkten zo, dat als je 
i.p.v. een string een numerieke 
variabele opgaf, ze de NAAM van 
die variabele gebruiken i.p.v. de 
WAARDE. 

Dus kon je rustig intypen LOAD 
mdvl Jestprog_bas i.p.v. LOAD 
"mdvl _testprog_bas". 

Geef je een string-variabele of uit- 
drukking op, dan wordt gewoon de 
inhoud daarvan genomen, dus 
LOAD A$ laadt het programma met 
de naam welke in A$ staat en NIET 
het programma met de naam A$ 
zelf. Wil je dat laatste toch, dan 
moet je LOAD "A$" opgeven. 

Zoals al eerder vermeld zijn er bij de 
vorm LOAD naam wat beperkingen. 
Allereerst moet het natuurlijk een 
floating-point of integer-naam zijn, 
maar tevens dient de naam aan de 
syntax-regels gesteld aan een 
naam te voldoen. Dat betekent dus 
dat hij moet beginnen met een letter 
of underscore en verder mag 
bestaan uit letters,of cijfers. 

Dus, COPY mdv1_1_doc TO scr 
mag niet want 1 is geen letter 
(althans voor de QL niet). 

Maar COPY "mdv1_1_doc" TO scr 
mag WEL want "mdv1_1_doc" is 
een string. En juist dat is iets wat 
niet begrepen wordt door veel 
onervaren QL-gebruikers (sorry 
Ron)!(????®) Zelfs in de QL World 
lees ik nog artikelen waarin staat 


Overigens wil ik nog wat kwijt over 
filenamen. De QL User Guide 
vermeldt in zijn bekende vaagheid 
geen maximum lengte voor een 
filenaam. Dus zal ik het maar 
zeggen: ZES EN DERTIG 

karakters, waarbij de drivenaam 
("mdv1_" o.i.d.) NIET is 

meegerekend. Overigens blijken 
programma's als QUILL om een mij 
niet bekende reden slechts 8 
karakters voor een filenaam te 
accepteren. Ook mag bij QUILL een 
filenaam niet met bv. een cijfer 
beginnen maar iets als 1_doc mag 
ineens weer wel... Maar ach, er zijn 
zoveel dingen aan QUILL die ik niet 
begrijp! 


Tot zover dan het "filenamen" 
probleem. Wellicht zal ik nog eens 
een rubriek beginnen over "vreemde 
en onbegrepen" QL-eigenschap- 
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QL MODEM-INTERFACE 
VOOR ZELFBOUW 


Aangeboden: 

Sinclair QL (serie D15, JS-ROM) 
par. printerinterface, 30 cartridges, 
Philips BM amber monitor, software 
en overige extra's. Prijs /695,= 

Tel.: 03402-43058 
b.g.g.: 030 - 315123 (Paul) 

Gevraagd: 

Sinclair QL-printer (zwart,seriele RS- 
232-aansluiting) 

Quasars van vc>6r april 1987 (voor 
pag. 463) 

G.F.PIoeg, telefoon: 
overdag: 023 - 288950 tst. 247 
buiten kantoor-uren: 023 - 354119 

Aangeboden: 

lim IdlBta’s, 

Alleen gebruikt voor bespreking. 

Bel Bob Visser. 

Alleen gebruikt voor bespreking. 

Met recht op update naar nieuwste 
versie! 

Bel Bob Visser. 

Aangeboden: 

(Aan het definitief verbeteren van 
de software kom ik niet toe....wie 
wel?) 

Seiko RC-1000 Data-manager 
Inklusief kabel en software. 

Nooit gedragen. In originate 

verpakking. /125,- 

Ron den Breems: 010-4551234 

Aangeboden: 

Star Gemini 10X printer met serieel 

interface. /395,- 

Ron den Breems: 010-4551234 


ABC-muisinterfaces 

kompleet in kastje.. 

Op is op./45,- 

W&M Spanjer.:03404 - 20581 


Voor het aansturen van een modem 
heb je een RS232-interface nodig. 
Nu zult u zeggen: "Die zit toch al op 
de QL"? Inderdaad, maar om 
diverse redenen zijn deze poorten 
minder geschikt voor gebruik met 
modems. 

Ten eerste is er het probleem van 
de 1200/75 baudrate. Dat betekent 
dat er op 1200 baud ontvangen en 
op 75 baud gezonden moet worden. 
En dat is nu op de QL niet mogelijk, 
althans niet tegelijkertijd. 

Een tweede reden is dat de 8049 
tweede processor welke de RS232 
ontvangst verzorgt de databits op 
het verkeerde moment schijnt in te 
klokken. Daardoor treedt vooral bij 
interlokale verbindingen nogal veel 
storing op. 

Nu zijn er wel wat slimme schakeling- 
etjes bedacht waarmee het met die 
krakkemikkige SERI- of SER2- 
poort toch mogelijk wordt met een 
modem op 1200/75 baud te werken, 
maar echt probleemloos werken die 
ook weer niet. Daarom hier dus het 
schema van een zelfbouw modem- 
interface dat bij mij al een aantal 
maanden tot voile tevredenheid 
werkt. 

(Het schema was zeer moeilijk te 
lezen. We plaatsen het misschien 
volgende keer.®) 

Het is gebaseerd op de Motorola 
6850 ACIA (Asynchronous Commu¬ 
nications Interface Adapter). Dat is 
een 1C welke een complete RS232 
interface bevat. Bovendien hebben 
zender en ontvanger gescheiden 
klok-ingangen, zodat werken op 
1200/75 baud geen problemen op- 
levert. 

Overigens worden de benodigde 
kloksignalen bij deze interface uit 
de QL zelf gehaald, van pen 5 van 
het ZX8302 1C. Daarop staat een 
kloksignaal met een frequentie van 
vier maal de m.b.v. het BAUD- 


commando gekozen baudrate. 
Aangezien de 6850 hier een 
kloksignaal nodig heeft van 16 maal 
de baudrate, dient de QL zelf op 
4800 baud te worden gezet. Let 
daargoed op! 

Via een 74LS93 wordt het 
kloksignaal in frequentie gedeeld 
voor 300 en 75 baud. Voor het 
aansturen van de interface heb ik 
ook een stukje software 
geschreven (zie assembler- .(CD- 
service)) en SB-listing) 

Met de gegeven software heeft 
deze poort de naam SER3 en kan 
dus als zodanig in OPEN- 
statements e.d. gebruikt worden. 
Wordt alleen SER3 gebruikt, dan 
werkt de poort met 8 bit no parity, 1 
stopbit, bij SER3E wordt 7 bit, even 
parity, 1 stopbit gebruikt en bij 
SER30 7bit, oneven parity en 1 
stopbit. 

Als u in de assembler-listing SER3 
door SER2 of SERI vervangt wordt 
deze poort gebruikt i.p.v. de SER2- 
of SERI poort. Let er opdat bij deze 
poort alleen de "parity" parameter 
werkt! 

De I/O adressen van de poort zitten 
op $10000 en $10001, alhoewel op 
alle adressen van $10000 t/m 
$17FFF beslag wordt gelegd. 
Hoewel de adresdecoder hiervoor 
wat omslachtig uitvalt heb ik toch 
voor deze adressen gekozen i.v.m. 
compatibiliteit met andere aange- 
sloten hardware (hoop ik ten- 
minste). 

Een printontwerp zult u helaas 
hierbij moeten missen want de scha- 
keling werd door mij op monta- 
geprint gebouwd. 

Overigens kan deze schakeling ook 
voor andere doeleinden dan mo¬ 
dems worden gebruikt (printers, 
MIDI) zij het dat er dan wat aan- 
passingen nodig zijn afhankelijk 
van het beoogde doel. 


JAN BREDENBEEK. 


ER ZIJN WEER 
CARTRIDGES! 
SPLINTERNIEUW 
DEZE KEER 


5 STUKS 
FL.30,= 

INKL.VERZ.KOSTEN 


Cartridge/Disk- 

service. 

Kees vd Wal. 
Adres en tel. voorin 
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100 REMark Machinecode voor SER3-driver 
110 REMark Jan Bredenbeek, Hilversum 
120 REMark 3 juni 1987 
130: 

140 start=RESPR(512):a=start 

150 lino=1000:RESTORE 

160 REPeat loop 

170 IF EOF THEN EXITloop 

180 total=0 

190 FOR i=l TO 32 

200 READ b:POKE a,b 

210 a=a+l 

220 total=total+b 

230 END FOR i 

240 READ tIF totalot THEN PRINT "Fout in regel"!lino 

250 lino=lino+10 

260 END REPeat loop 

270 SBYTES mdvl_ser3_bin,start,418 

280 PRINT "Laden met" 



LISTINGS MOETEN 
VOORTAAN NAAR 
RUUD REDDINGIUS 
GESTUURD WORDEN. 

PROGRAMMA'S DIE 
MEER DAN ONGEVEER 
EEN BLADZIJDE LANG 
ZUN WORDEN 
VOORTAAN ALLEEN 
BESPROKEN EN ZUN 
DAN VIA DE 
CARTRIDGE/DISK- 
SERVICE TE 
VERKRUGEN. 


290 PRINT ”a=RESPR(512)" 

300 PRINT "LBYTES mdvl_ser3_bin,a" 
310 PRINT "CALL a" 

320 STOP 


1000 DATA 19,252,0,75,0,1,0,0,71,250,1,104,67,250,1,1439,73,0,4,67, 
250,0,200, 39,73,038,67350,0,58,2253 
1010 DATA 39,73,0,32,67,250,0,162,39,73,0,36,66,171,0,40,65350,0, 
182,67, 250,0,1923 2301,67,250,0,192,32,201,3029 
1020 DATA 67350,0,192,32,137,65335,034,112,32,78,65,32,75,112,26, 
78,65,112,0,78,117,42,75,85,79,38,79,52,120,2554 
1030 DATA 1,34,78,146,96,94,96,92,96,12,0,4,83,69,82,51,0,1,0,2,69,79, 
112,247,74,173,0,40,102,70,34,603097 
1040 DATA 0,0,8,5632,120,0,192,78,146,102,56,69,232,0,24,43,74,0,40, 
34,60,0,0,4,0,50,120,0,220,78,1453003 


1050 DATA 69332,4,4030,120,0320,78,145,114,149,48,23,103,8,114, 
137, 83,0,229,8,130,037,65,0,44,19,193,0,13453 
1060 DATA 0,0,112,0,84,79,78,117,112,67,128,43,0,44,19,192,0,1,0,0,66, 
171,0,40,52,120,0,194,78310,69,232,2308 
1070 DATA 0,24,56,120,0334,78,148,0,0,0,0,0,0,0,0,0,0,0,0,78,117,56, 
120,0,222,78,21236,120,0326,1945 
1080 DATA 78312,42,75,69,232,4,40,50,120,0,224,78,145,116,32,132, 
45,0,44, 19,194,0,1,0,0,78,117,42,75,73,2493586 
1090 DATA 0,1,0,0,30,20,106,72,44,45,0,40,18,44,0,1,8,7,0,0,103,20, 

112,80, 192,7,1033,114,127,74,134,1504 
1100 DATA 103,8,36,7030,120,0324,78,145,8,7,0,1,103,32,74,134,103, 
20,36, 70,212,252,4,16,50,120,0,226,78,1453525 
1110 DATA 102,6,25,65,0,1,96,8,116,223,196,45,0,44,24,130,78,117,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,1276 



KORTERE 

PROGRAMMA'S ZOALS 
BIJV. HIERNAAST 
WORDEN VOORTAAN 
PAS GEPLAATST 
NADAT ZE GETEST 
ZUN. 
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Antwoord opgave 


cursus machinetaal: 



'Detective = (Detective AND 
00000011) M 


We noemen het masker dat een 
valse munt detecteert Detective, en 
het masker dat ingevoerde getallen 
'zuivert' van valse munten Zui- 
veraar. Dan moeten we voor 
Detective het masker 01000001 
nemen en dit ANDen met het 
inwerpgetal. Het resultaat van In- 
voer AND Detective is dan alleen T 
als er een valse munt ingeworpen 
is. Voor Zuiveraar nemen we het 
masker 00111110. Dan wordt 
Zuiveraar AND Invoer een getal 
waar alleen Ten kunnen ver- 
schijnen op die plaatsen waar een 
geldig muntstuk is gedetecteerd. 
Alleen de bits van rijksdaalder f 
gulden kwartje dubbeltje en stuiver 
blijven in hun oude toestand, 
andere bits worden op ’O' gezet. 

Als de stuiver uit de roulatie gaat 
dan moet de Detective meer munten 
als Vais' zien. Door op de bewuste 


dag de operatie 

'Detective = Detective OR 
00000010 ' 

uit te voeren, wordt Detective gelijk 
aan 01000011 en zal hij ook een '1' 
afleveren als er een stuiver wordt 
ingeworpen. 

De zuiveraar moet ook worden 
aangepast. De operatie 

'Zuiveraar=Zuiveraar AND 
00111100 ' 

uit te voeren, zal de Zuiveraar gelijk 
worden aan 00111100 en voortaan 
zal de zuiveringsoperatie nu ook 
het bitje van de stuiver 'plat slaan' 
('O' maken) 

Op de dag dat het vijfguldenstuk 
wordt ingevoerd moet de Detective 
minder selectief worden. Als er een 
vijfgulden stuk wordt ingeworpen 
moet de Detective daar niet meer op 
reageren. We passen de Detective 
aan door de operatie 


toe te passen. De detective kan nu 
alleen nog een getal ongelijk nul 
afleveren doordat er een cent of 
een stuiver ontdekt wordt. Het bit 
van de 5gulden in het masker is nu 
ook platgeslagen. 

De Zuiveraar moet ook worden 
aangepast, anders zouden er geen 
vijfgulden stukken worden geteld, 
waarmee de klanten niet blij mee 
zullen zijn. Om de Zuiveraar er 
voortaan van te weerhouden vijf- 
guldenstukken te laten 'verdwijnen' 
uit het Invoer getal, voeren we de 
operatie 

Zuiveraar=Zuiveraar OR 01000000 
uit. 

De Zuiveraar ziet er dan als voIgt 
uit: 01111100 


lii 



Hier het schema voor M SER3" 
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